home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / utilities / misc / show1.0.lha / show / Show_Install < prev    next >
Encoding:
Text File  |  1994-12-07  |  3.1 KB  |  135 lines
  1. ;
  2. ; Show Installation Script $VER: Show version 1.0
  3. ;
  4.  
  5. (set @pref-prog "show")
  6. (set @pref-pref "showprefs")
  7.  
  8. (set @default-dest "SYS:Utilities")
  9. (set @prefs-dest "SYS:Prefs")
  10. (set @install-prefs 1)
  11.  
  12. (set @choice
  13.     (askchoice
  14.     (prompt "Which version of the Show/ShowPrefs program do you want installed")
  15.     (choices "Show" "Show_020" "Show_020ffp" )
  16.     (help "Choose 'Show' if you have a 68000 or a 68010 processor. "
  17.         "Choose 'Show_020' if you have >=68020 processor and no FPU. "
  18.         "Choose 'Show_020ffp' if you have >=68020 processor AND an FPU. "
  19.         "Aside: There is no _020ffp version of the show program since it is"
  20.         "identical to the _020 version."
  21.     )
  22.     )
  23. )
  24. (if (= 0 @choice)
  25.     ( (set @pref-prog "show") (set @pref-pref "showprefs"))
  26. )
  27. (if (= 1 @choice)
  28.     ( (set @pref-prog "show_020") (set @pref-pref "showprefs_020"))
  29. )
  30. (if (= 2 @choice)
  31.     ( (set @pref-prog "show_020") (set @pref-pref "showprefs_020ffp"))
  32. )
  33.  
  34. (debug "pref-prog" @pref-prog)
  35. (debug "pref-pref" @pref-pref)
  36.  
  37. (set @default-dest
  38.     (askdir
  39.     (prompt "Where would you like Show installed?")
  40.     (help "The most likely place to put Show is on your SYS:"
  41.           " partition in the utilities directory."
  42.     )
  43.     (default @default-dest)
  44.     )
  45. )
  46.  
  47. (set @prefs-dest
  48.     (askdir
  49.     (prompt "Where would you like the Show preferences program installed?")
  50.     (help "The most likely place to put the preferences program is on your SYS:"
  51.           " partition in the prefs directory.")
  52.     (default @prefs-dest)
  53.     )
  54. )
  55.  
  56. (if ( OR (exists (tackon @default-dest "show")) (exists (tackon @prefs-dest "show")))
  57.     (if
  58.     (askbool
  59.         (prompt "Show already exists. Overwrite")
  60.         (choices "Yes" "No")
  61.         (default 1)
  62.         (help "Press 'Yes' to overwrite previous versions. Press 'No' to abort installation")
  63.     )
  64.  
  65.     (
  66.         (delete file (tackon @default-dest "show")
  67.              (tackon @default-dest "show.info")
  68.              (tackon @prefs-dest "show")
  69.              (tackon @prefs-dest "show.info")
  70.         )
  71.     )
  72.     (exit (quiet))
  73.     )
  74. )
  75.  
  76.  
  77. (copyfiles
  78.     (prompt ("Copying Show to %s" @default-dest))
  79.     (source (tackon (pathonly @icon) @pref-prog))
  80.     (newname "Show")
  81.     (dest @default-dest)
  82. )
  83.  
  84. (copyfiles
  85.     (source (tackon (pathonly @icon) "Show.info"))
  86.     (dest @default-dest)
  87. )
  88.  
  89.  
  90. (copyfiles
  91.     (prompt ("Copying Show Preferences to %s" @prefs-dest))
  92.     (source (tackon (pathonly @icon) @pref-pref))
  93.     (newname "Show")
  94.     (dest @prefs-dest)
  95. )
  96.  
  97. (copyfiles
  98.     (source (tackon (pathonly @icon) "showprefs.info"))
  99.     (dest @prefs-dest)
  100.     (newname "Show.info")
  101. )
  102.  
  103. (set @install-prefs
  104.     (askbool
  105.     (prompt "Would you like to install the sample .prefs")
  106.     (help "If you choose yes, show.prefs will be copied to envarc:")
  107.     (default @install-prefs)
  108.     )
  109. )
  110.  
  111. (if
  112.     (= 1 @install-prefs)
  113.     (
  114.     (copyfiles
  115.         (source (tackon (pathonly @icon) "show.prefs"))
  116.         (dest "envarc:")
  117.     )
  118.     (copyfiles
  119.         (source (tackon (pathonly @icon) "show.prefs"))
  120.         (dest "env:")
  121.     )
  122.     )
  123. )
  124.  
  125. (message
  126.     "\n"
  127.     ("Show is now installed in your %s directory. "@default-dest)
  128.     ("Please read the accompanying documentation.")
  129.     ("If you have any problems or suggestions write me at jsshephe@undergrad.math.uwaterloo.ca")
  130. )
  131.  
  132. (exit (quiet))
  133.  
  134.  
  135.